Copyright>        OpenRadioss
Copyright>        Copyright (C) 1986-2024 Altair Engineering Inc.
Copyright>
Copyright>        This program is free software: you can redistribute it and/or modify
Copyright>        it under the terms of the GNU Affero General Public License as published by
Copyright>        the Free Software Foundation, either version 3 of the License, or
Copyright>        (at your option) any later version.
Copyright>
Copyright>        This program is distributed in the hope that it will be useful,
Copyright>        but WITHOUT ANY WARRANTY; without even the implied warranty of
Copyright>        MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
Copyright>        GNU Affero General Public License for more details.
Copyright>
Copyright>        You should have received a copy of the GNU Affero General Public License
Copyright>        along with this program.  If not, see <https://www.gnu.org/licenses/>.
Copyright>
Copyright>
Copyright>        Commercial Alternative: Altair Radioss Software
Copyright>
Copyright>        As an alternative to this open-source version, Altair also offers Altair Radioss
Copyright>        software under a commercial license.  Contact Altair to discuss further if the
Copyright>        commercial version may interest you: https://www.altair.com/radioss/.
Chd|====================================================================
Chd|  WRCOMIP                       source/restart/ddsplit/wrcommp.F
Chd|-- called by -----------
Chd|        DDSPLIT                       source/restart/ddsplit/ddsplit.F
Chd|-- calls ---------------
Chd|        ALEFVM_MOD                    ../common_source/modules/ale/alefvm_mod.F
Chd|        ALEMUSCL_MOD                  ../common_source/modules/ale/alemuscl_mod.F
Chd|        ALE_CONNECTIVITY_MOD          ../common_source/modules/ale/ale_connectivity_mod.F
Chd|        ALE_EBCS_MOD                  ../common_source/modules/ale/ale_ebcs_mod.F
Chd|        ALE_MOD                       ../common_source/modules/ale/ale_mod.F
Chd|        INTBUFDEF_MOD                 ../common_source/modules/intbufdef_mod.F
Chd|        MULTI_FVM_MOD                 ../common_source/modules/ale/multi_fvm_mod.F
Chd|        OUTMAX_MOD                    ../common_source/modules/outmax_mod.F
Chd|        PARAMETERS_MOD                ../common_source/modules/interfaces/parameters_mod.F
Chd|        PINCHTYPE_MOD                 ../common_source/modules/pinchtype_mod.F
Chd|        PLOAD_CYL_MOD                 ../common_source/modules/loads/pload_cyl_mod.F
Chd|        SENSOR_MOD                    share/modules1/sensor_mod.F   
Chd|        STATE_MOD                     ../common_source/modules/state_mod.F
Chd|        SUBMODEL_MOD                  share/modules1/submodel_mod.F 
Chd|====================================================================
      SUBROUTINE WRCOMIP(
     1   LMXVINT   ,LVARINT   ,TABVINT   ,NGROUP_L  ,LBUFEL_L ,
     2   LENWA_L   ,INTBAG_L  ,NUMELQ_L  ,NUMELS_L  ,NUMELC_L ,
     3   NUMELT_L  ,NUMELR_L  ,NUMELP_L  ,NUMELX_L  ,ISUMNX_L ,
     4   NUMELS10_L,NUMELS20_L,NUMELS8_L ,NUMELS16_L,LNOM_OPT ,
     5   NUMELTG_L ,NUMELTG6_L,NSLARB_L  ,NUMNOD_L ,
     6   NUMEL_L   ,NSVOIS_L  ,NQVOIS_L  ,NTGVOIS_L, LENLAS   ,
     7   NLLINK_L  ,LLGRAV_L  ,LLBVEL_L  ,NSLAW_L  ,
     8   NESLAW_L  ,NSKYLL_L  ,NSTRF_L   ,LJOINT_L ,
     9   LENVOLU   ,LENTHG    ,LBUFMAT   ,LBUFGEO   ,LBUFSF   ,
     A   LENXLAS   ,LWSAV_L   ,LSECBUF_L ,NUMPOR_L ,
     B              NPTS      ,NBDDNOD_L ,NFXVEL_L  ,NBDDNRB_L,
     C   LCNE_L    ,NSKYRW_L  ,NSKYRBK_L ,NBDDI2M_L ,LCNI2_L  ,
     D   NISKYI2_L ,I2NSNT_L  ,NCONLD_L  ,NNMV_L    ,NNMVC_L  ,
     E   NBDDNCJ_L ,NBDDNRBM_L,NSKYRBM_L ,NNODT_L   ,NNODL_L  ,
     F   NMADSH4_L ,NMADSH3_L ,NMADSOL_L ,NMADNOD_L ,IMAXIMP_L,
     G   ISP0   ,NUM16SHIFT_L ,NUMSPH_L  ,LWASPH_L ,
     H   SPHSHIFT_L,NRCVVOIS_L,NSNDVOIS_L,NERVOIS_L,
     I   NESVOIS_L ,ILAW11_L  ,NSEGFL_L  ,
     J   NBI18_L   ,NSKYI18_L ,LEIBUF_L ,
     K   LENTHBUF  ,NFASOLFR_L,LENNOD_L  ,LENMOD_L  ,LENELM_L ,
     L   LENSIG_L  ,LENGLM_L  ,LENCP_L   ,LENLM_L   ,LENFLS_L ,
     M   LENDLS_L  ,LENMCD_L  ,LENGRVI_L ,LENGRVR_L ,NLAGF_L  ,
     N   LRBAGALE  ,SKIPPON_L ,NCONV_L   ,NFXTEMP_L ,NFXFLUX_L,
     O   NRBE3_L   ,LLRBE3_L  ,NBDDNRBE3_L,NSKYRBE3_L, NSLARBM_L ,
     O   NSKYRBMK_L,NBDDNRBYM_L,MADCL_NMADNOD_L,NRADIA_L,NRBE2_L,
     Q   LLRBE2_L  ,NBDDNRBE2_L,NUMELCPXFE_L,
     R   NUMNODPXFE_L,LCNEPXFEM_L,LLCFIELD_L,
     S   LLLOADP_L,NUMELCRKXFE_L,NUMNODCRKXFE_L,LCNECRKXFEM_L,
     T   SLONFSPH_L ,SLPRTSPH_L,SSPHVELN_L,I2NSN25_L,NUMELCCRKXFE_L,
     U   NUMELTGCRKXFE_L,NUMEDGES_L,NBDDEDGE_L,SDD_R2R_ELEM,NUMNODXFE_L,
     V   NSPHSOL_L,FIRST_SPHSOL_L,NCLUSTER_L,LENTHBUFR,NUMNOR_L  ,
     W   NBDDNORT_L,NBDDNOR_MAX_L,NBCCNOR_L,NBCCFR25_L,NS10E_L ,
     X   LCNCND_L  ,NBDDCNDM_L,NBEBCS, IEBCS_LGTH, MULTI_FVM,NSEGQUADFR_L,
     Y   NBDDEDGT_L,NBDDEDG_MAX_L,NRTMX25_L,LENIGRNOD_L,LENIGRBRIC_L,
     Z   LENIGRQUAD_L,LENIGRSH4N_L,LENIGRTRUS_L,LENIGRBEAM_L,LENIGRSPRI_L,
     1   LENIGRSH3N_L,LENISURF_L,LENISLIN_L,NE_NERVOIS_L, NE_NESVOIS_L, 
     2   NE_NSVOIS_L, NE_NQVOIS_L, NE_NTGVOIS_L,NBCSCYC_L,LLBCSCYC_L,
     3   ALE_CONNECTIVITY,N_SLIPRING_L,N_RETRACTOR_L,N_ANCHOR_REMOTE_L,
     4   N_ANCHOR_REMOTE_SEND_L,N_SEATBELT_L,N_SEATBELT_2D_L,DYNAIN_DATA,
     5   NUMSH4N_L,NUMSH3N_L,INTER_PARAMETERS,SENSORS,NLOAD_CYL,
     6   NCLOAD_L,NPLOAD_L,NDAMP_VREL_L, UNITAB)
C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------
      USE MULTI_FVM_MOD
      USE PINCHTYPE_MOD
      USE ALE_EBCS_MOD
      USE ALE_CONNECTIVITY_MOD
      USE OUTMAX_MOD
      USE PLOAD_CYL_MOD
      USE STATE_MOD
      USE INTBUFDEF_MOD
      USE ALEMUSCL_MOD , only:ALEMUSCL_Param
      USE ALEFVM_MOD , only:ALEFVM_Param
      USE ALE_MOD
      USE PARAMETERS_MOD
      USE SENSOR_MOD
      USE SUBMODEL_MOD , ONLY : NSUBMOD
      USE UNITAB_MOD
C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER LMXVINT,LVARINT,TABVINT(*),
     .        NGROUP_L, LBUFEL_L, LENWA_L, NUMELQ_L, NUMELS_L,
     .        NUMELC_L, NUMELT_L, NUMELR_L, NUMELP_L, NUMELX_L,
     .        ISUMNX_L, NUMELS10_L, NUMELS20_L, NUMELS8_L, NUMELS16_L,
     .        LNOM_OPT, NUMEL_L, NSVOIS_L, NQVOIS_L, NTGVOIS_L, LENLAS,
     .        NLLINK_L, LLGRAV_L, LLBVEL_L, NSLAW_L,
     .        NESLAW_L,NSTRF_L,LJOINT_L,NUMPOR_L,
     .        LENVOLU,INTBAG_L,LENTHG,LBUFMAT,LBUFGEO,NCONLD_L,
     .        LBUFSF,LENXLAS,LWSAV_L,LSECBUF_L,I2NSNT_L,
     .        NUMELTG_L,NUMELTG6_L,NSLARB_L,NUMNOD_L,
     .        NPTS,NBDDNOD_L,NFXVEL_L,NBDDNRB_L,LCNE_L,
     .        NSKYRW_L,NSKYRBK_L,NBDDI2M_L,LCNI2_L,NISKYI2_L,NNMV_L,
     .        NNMVC_L,NSKYLL_L,NBDDNCJ_L,NBDDNRBM_L,NSKYRBM_L, NNODT_L,
     .        NNODL_L, NMADSH4_L ,NMADSH3_L ,NMADSOL_L ,NMADNOD_L,
     .        IMAXIMP_L, NUM16SHIFT_L ,NUMSPH_L, LWASPH_L,
     .        ISP0, SPHSHIFT_L, NRCVVOIS_L, NSNDVOIS_L,
     .        NERVOIS_L, NESVOIS_L, ILAW11_L, NSEGFL_L, 
     .        NBI18_L, NSKYI18_L, 
     .        LEIBUF_L,LENTHBUF,NFASOLFR_L,
     .        LENNOD_L, LENMOD_L,
     .        LENELM_L, LENSIG_L, LENGLM_L, LENCP_L, LENLM_L, LENFLS_L,
     .        LENDLS_L, LENMCD_L, LENGRVI_L, LENGRVR_L, NLAGF_L,
     .        LRBAGALE, SKIPPON_L,NFXTEMP_L, NCONV_L,   NFXFLUX_L,
     .        NBDDNRBE3_L,NSKYRBE3_L,NRBE3_L   ,LLRBE3_L,NSLARBM_L,
     .        NSKYRBMK_L,NBDDNRBYM_L,MADCL_NMADNOD_L, NRADIA_L,
     .        NRBE2_L,LLRBE2_L,NBDDNRBE2_L,
     .        NUMELCPXFE_L,NUMNODPXFE_L,LCNEPXFEM_L,LLCFIELD_L,
     .        LLLOADP_L,NUMELCRKXFE_L,
     .        NUMNODCRKXFE_L,LCNECRKXFEM_L,
     .        SLONFSPH_L ,SLPRTSPH_L,SSPHVELN_L,I2NSN25_L,
     .        NUMELCCRKXFE_L,NUMELTGCRKXFE_L,NUMEDGES_L,NBDDEDGE_L,
     .        SDD_R2R_ELEM,NUMNODXFE_L,NSPHSOL_L,FIRST_SPHSOL_L,NCLUSTER_L,
     .        LENTHBUFR, NUMNOR_L,NBDDNORT_L,NBDDNOR_MAX_L,NBCCNOR_L,
     .        NBCCFR25_L,NBDDEDGT_L,NBDDEDG_MAX_L,NRTMX25_L,
     .        NS10E_L,LCNCND_L,NBDDCNDM_L, NBEBCS,IEBCS_LGTH,NSEGQUADFR_L,
     .        LENIGRNOD_L,LENIGRBRIC_L,LENIGRQUAD_L,LENIGRSH4N_L,
     .        LENIGRTRUS_L,LENIGRBEAM_L,LENIGRSPRI_L,LENIGRSH3N_L,LENISURF_L,
     .        LENISLIN_L,NE_NERVOIS_L, NE_NESVOIS_L, NE_NSVOIS_L, NE_NQVOIS_L, NE_NTGVOIS_L,NBCSCYC_L,LLBCSCYC_L,
     .        N_SLIPRING_L,N_RETRACTOR_L,N_ANCHOR_REMOTE_L,N_ANCHOR_REMOTE_SEND_L,N_SEATBELT_L,N_SEATBELT_2D_L,
     .        NUMSH4N_L,NUMSH3N_L,NLOAD_CYL,NDAMP_VREL_L
      INTEGER, INTENT(IN) :: NCLOAD_L,NPLOAD_L
      TYPE(MULTI_FVM_STRUCT) :: MULTI_FVM
      TYPE(t_ale_connectivity), INTENT(IN) :: ALE_CONNECTIVITY
      TYPE (DYNAIN_DATABASE), INTENT(INOUT) :: DYNAIN_DATA
      TYPE (PARAMETERS_) ,INTENT(INOUT)     :: INTER_PARAMETERS
      TYPE (SENSORS_)    ,INTENT(IN)        :: SENSORS
      TYPE (UNIT_TYPE_), INTENT(IN)         :: UNITAB
C-----------------------------------------------
C   C o m m o n   B l o c k s
C-----------------------------------------------
#include      "com01_c.inc"
#include      "com04_c.inc"
#include      "com09_c.inc"
#include      "com10_c.inc"
#include      "com_xfem1.inc"
#include      "drape_c.inc"
#include      "eigcom.inc"
#include      "flowcom.inc"
#include      "fxbcom.inc"
#include      "ige3d_c.inc"
#include      "inter18.inc"
#include      "inter22.inc"
#include      "intstamp_c.inc"
#include      "lagmult.inc"
#include      "param_c.inc"
#include      "r2r_c.inc"
#include      "remesh_c.inc"
#include      "scr03_c.inc"
#include      "scr16_c.inc"
#include      "scr17_c.inc"
#include      "scr23_c.inc"
#include      "sms_c.inc"
#include      "sphcom.inc"
#include      "spmd_c.inc"
#include      "tabsiz_c.inc"
#include      "thermal_c.inc"
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
         INTEGER IVAR, I
C--------------------------------------
C     PREPARATION DES VARIABLES ENTIERES POUR ECRITURE SUR RFILE.
C=======================================================================
C-----
      DO IVAR=1,LMXVINT
       TABVINT(IVAR)=0
      ENDDO
C-----
      TABVINT(1)  =N2D
      TABVINT(2)  =NCPRI
      TABVINT(3)  =0 ! IUSERWI
      TABVINT(4)  =IALE
      TABVINT(5)  =NGROUP_L
      TABVINT(6)  =NCYCLE
      TABVINT(7)  =IRUN
      TABVINT(8)  =IGER
      TABVINT(9)  =LBUFEL_L
      TABVINT(10) =IRODDL
      TABVINT(11) =IEULER
      TABVINT(12) =ITHERM
      TABVINT(13) =IHSH
      TABVINT(14) =ITESTV
      TABVINT(15) =ITURB
      TABVINT(16) =ILAG
      TABVINT(17) =ISECUT
      TABVINT(18) =IDAMP
      TABVINT(19) =IRXDP
      TABVINT(20) =NMULT
      TABVINT(21) =INTEG8
      TABVINT(22) =ISIGI
      TABVINT(23) =NSPMD
      TABVINT(24) =LENWA_L
      TABVINT(25) =ISGIFL
      TABVINT(26) = 0 !no longer used
      TABVINT(27) =NNODS
      TABVINT(28) =NCNOIS
      TABVINT(29) =LCNE_L
      TABVINT(30) =IPARI0
      TABVINT(31) =IMAXIMP_L
      TABVINT(32) =NNOISER
      TABVINT(33) =NSPGROUP
      TABVINT(34) =IRESMD
      TABVINT(35) =IFRWV
C
C -------- Tailles des tableaux entiers --------
C taille locale inutile
      TABVINT(36) = 0
      TABVINT(37) = NUMNOD_L
      TABVINT(38) = 0 ! no longer used
      TABVINT(39) = NUMNOD_L
      TABVINT(40) = LISKN*(NUMSKW+1)+LISKN*MIN(1,NSPCOND)*NUMSPH_L+LISKN*NSUBMOD
      TABVINT(41) = LISKN*(NUMFRAM+1)
      TABVINT(42) = 0
      TABVINT(43) = 5*NBCSLAG
      TABVINT(44) = LIPART1*(NPART+NTHPART)+2*9*(NPART+NTHPART)+NUMEL_L
      TABVINT(45) = LNOM_OPT*ISP0
      TABVINT(46) = 3*NFUNCT+1
      TABVINT(47) = 0
      TABVINT(48) = NIXTG*NUMELTG_L + NIXTG * NTGVOIS_L
      TABVINT(49) = 4*NUMELTG6_L
      TABVINT(50) = NIXS*NUMELS_L+NSVOIS_L*NIXS+6*NUMELS10_L+12*NUMELS20_L+8*NUMELS16_L
      TABVINT(51) = NIXQ*NUMELQ_L+NIXQ*NQVOIS_L
      TABVINT(52) = NIXC*NUMELC_L
      TABVINT(53) = NIXT*NUMELT_L
      TABVINT(54) = NIXP*NUMELP_L
      TABVINT(55) = NIXR*NUMELR_L
      TABVINT(56) = NUMNOD_L
      TABVINT(57) = 2*NUMNOD_L
      TABVINT(58) = LKJNI*NGJOINT*ISP0
      TABVINT(59) = NUMNOD_L*MAX(IALE,IEULER, IALELAG)
      TABVINT(60) = (NUMELS_L*6+NUMELQ_L*4+NUMELTG_L*3)*MAX(IALE,IEULER,ITHERM,IALELAG)
      IF(ALE_CONNECTIVITY%has_nn_connect)THEN
        TABVINT(61) = MAX(IALE,IALELAG)*ALE%GLOBAL%NALENOVS*NUMNOD_L
      ELSE
        TABVINT(61) = 0
      END IF
      TABVINT(62) = SIFILL
      TABVINT(63) = SIMS
!! to empty (still available)+++
      TABVINT(64) = 0
      TABVINT(65) = 0
      TABVINT(66) = 0
      TABVINT(67) = 0
      TABVINT(68) = 0
!! to empty (still available)---
      TABVINT(69) = NIXX*NUMELX_L
      TABVINT(70) = ISUMNX_L
      IF (NUMSPH > 0) THEN
        TABVINT(71) = (NUMSPH_L+NBGAUGE)*NISP
        TABVINT(72) = (NUMSPH_L+NBGAUGE)*KVOISPH
        TABVINT(73) = NUMNOD_L
      ELSE
        TABVINT(71) = 0
        TABVINT(72) = 0
        TABVINT(73) = 0
      END IF
      TABVINT(74) = NUMSPH_L*NSPCOND
      TABVINT(75) = NISPCOND*NSPCOND
C 3 tableau pour inlet outlet passe en mono domaine
c si cas Inl Outl on passe LPRTSPH_L et LONFSPH_L en tableaux locaux
      TABVINT(76) = SISPHIO
      IF(NSPHIO>0)THEN
        TABVINT(77) = SLPRTSPH_L
        TABVINT(78) = SLONFSPH_L
      ELSE
        TABVINT(77) = SLPRTSPH
        TABVINT(78) = SLONFSPH
      ENDIF
      TABVINT(79) = NIBCLD*(NCONLD_L)
      TABVINT(80) = NIFV*NFXVEL_L
      TABVINT(81) = 0
      TABVINT(82) = LENLAS*ISP0
      TABVINT(83) = 0
      TABVINT(84) = 3*NACCELM
      TABVINT(85) = 0 ! NSENSI*NSENSOR
      TABVINT(86) = 10*NLINK
      TABVINT(87) = NLLINK_L
      TABVINT(88) = 0 ! SIUSERW_L
      TABVINT(89) = NPARG*NGROUP_L
      TABVINT(90) = (NSPMD+1)*NSPGROUP
      TABVINT(91) = NIGRV*NGRAV
      TABVINT(92) = LLGRAV_L
      TABVINT(93) = NR2R*NR2RLNK
      TABVINT(94) = NBVELP*NIBVEL
      TABVINT(95) = LLBVEL_L
      TABVINT(96) = LACTIV*NACTIV
      TABVINT(97) = (NUMMPC+3*LMPC)*ISP0
      TABVINT(98) = NUMNOD_L!+NUMFAKENODIGEO
      TABVINT(99) = NPARI*NINTER
      TABVINT(100)= 0 !LINBUF_L
      TABVINT(101)= NNPRW*NRWALL
      TABVINT(102)= 0 !obsolete option removed
      TABVINT(103)= 7*NCONX*ISP0
      TABVINT(104)= NMADPRT*ISP0
      IF(NEXMAD/=0)THEN
        TABVINT(105)= NMADSH4_L
        TABVINT(106)= NMADSH3_L
        TABVINT(107)= NMADSOL_L
        TABVINT(108)= NMADNOD_L
        TABVINT(109)= 0
      ELSE
        TABVINT(105)= 0
        TABVINT(106)= 0
        TABVINT(107)= 0
        TABVINT(108)= 0
        TABVINT(109)= 0
      ENDIF
      TABVINT(110) = NNPBY*NRBYKIN
      TABVINT(111) = NNPBY*NRBYLAG*ISP0
      TABVINT(112) = NSLARB_L
      TABVINT(113) = SLPBYL*ISP0
      TABVINT(114) = NRIVET*4
      TABVINT(115) = NSTRF_L
      TABVINT(116) = LJOINT_L*ISP0
      TABVINT(117) = NUMPOR_L
      TABVINT(118) = LENVOLU
      TABVINT(119) = 0
      IF(LAG_NCF>0) TABVINT(119) = (LAG_NHF+3*LAG_NCF+2)*ISP0
!      TABVINT(120) = LENTHG  - obsolete
      TABVINT(121) = 2*(NSPMD+1)
      TABVINT(122) = (NSPMD+1)
      TABVINT(123) = 4*(NSPMD+1)
      TABVINT(124) = (NSPMD+1)
      TABVINT(125) = (NSPMD+1)*NJOINT
      TABVINT(126) = (NSPMD+1)
      TABVINT(127) = 4*(NSPMD+1)
      TABVINT(128) = 4*(NSPMD+1)
      TABVINT(129) = (NSPMD+2)*NSECT*ISECUT*ISP0
      TABVINT(130) = NBDDNOD_L
      TABVINT(131) = NBDDNRB_L
      TABVINT(132) = NRWALL*(NSPMD+2)
      TABVINT(133) = 3*NRBYKIN
      TABVINT(134) = NBDDI2M_L
      TABVINT(135) = NVOLU*(NSPMD+2)
      TABVINT(136) = NLINK*(NSPMD+2)
      TABVINT(137) = NBDDNCJ_L
      TABVINT(138) = NBDDNRBM_L
      TABVINT(139) = 3*NIBVEL
      TABVINT(140) = (NSPMD+1)*NSECT
      TABVINT(141) = NNODT_L
      TABVINT(142) = NNODL_L
      TABVINT(143) = 5*(NSPMD+1)
      TABVINT(144) = (NSPMD+2)*NBI18_L
      TABVINT(145) = NUMNOD_L
      TABVINT(146) = NINTER
      TABVINT(147) = NUMNOD_L
      IF(IALE+IEULER+ITHERM + IALELAG/=0) THEN
c SNBRCVOIS
        TABVINT(148) = NSPMD+1
c SNBSDVOIS
        TABVINT(149) = NSPMD+1
c SNBRCVOIS
        TABVINT(150) = NRCVVOIS_L
        TABVINT(151) = NSNDVOIS_L
        TABVINT(152) = NSPMD+1
        TABVINT(153) = NSPMD+1
        TABVINT(154) = NERVOIS_L
        TABVINT(155) = NESVOIS_L
        TABVINT(156) = 0 !obsolete option removed
        TABVINT(157) = 0 !obsolete option removed
        IF (SEGINDX>0) THEN
          TABVINT(158) = NSPMD+1
          TABVINT(159) = NSEGFL_L
        ELSE
          TABVINT(158) = 0
          TABVINT(159) = 0
        ENDIF
        IF (NUMPOR>0) THEN
          TABVINT(160) = NUMGEO
          TABVINT(161) = NUMPOR_L
        ELSE
          TABVINT(160) = 0
          TABVINT(161) = 0
        ENDIF
      ELSE
        TABVINT(148) = 0
        TABVINT(149) = 0
        TABVINT(150) = 0
        TABVINT(151) = 0
        TABVINT(152) = 0
        TABVINT(153) = 0
        TABVINT(154) = 0
        TABVINT(155) = 0
        TABVINT(156) = 0
        TABVINT(157) = 0
        TABVINT(158) = 0
        TABVINT(159) = 0
        TABVINT(160) = 0
        TABVINT(161) = 0
      ENDIF
C

C -------- Tailles des tableaux flottants --------
      TABVINT(162) = 3*(NUMNOD_L+NRCVVOIS_L)
      TABVINT(163) = 3*(NUMNOD_L+NRCVVOIS_L)
      TABVINT(164) = 3*(NUMNOD_L+NRCVVOIS_L)
      TABVINT(165) = 3*NUMNOD_L*IRODDL
      IF(ISECUT > 0 .OR. IISROT > 0 .OR. IMPOSE_DR /= 0 .OR. IDROT > 0)THEN
        TABVINT(166) = 3*NUMNOD_L*IRODDL
      ELSE
        TABVINT(166) = 0
      ENDIF
C
      TABVINT(167) = NUMELC_L+NUMELTG_L
C
      IF (NDAMP>0) THEN
        TABVINT(168) = NRDAMP*NDAMP
        TABVINT(169) = 3*NUMNOD_L*(1+IRODDL)
      ELSE
        TABVINT(168) = 0
        TABVINT(169) = 0
      ENDIF

      TABVINT(170) = NUMNOD_L
      TABVINT(171) = NUMNOD_L*IRODDL
      TABVINT(172) = NPTS
      TABVINT(173) = NPROPM*NUMMAT
      TABVINT(174) = LSKEW*(NUMSKW+1) + LSKEW*MIN(1,NSPCOND)*NUMSPH_L+LSKEW*NSUBMOD
      TABVINT(175) = NXFRAME*(NUMFRAM+1)
      TABVINT(176) = NPROPG*NUMGEO
      TABVINT(177) = NUMELS_L+NUMELQ_L+NUMELC_L+NUMELTG_L
      TABVINT(178) = LBUFMAT
      TABVINT(179) = LBUFGEO
      TABVINT(180) = LBUFSF
      TABVINT(181) = LMPC*ISP0
      TABVINT(182) = LKJNR*NGJOINT*ISP0
      IF (IALE>0.) THEN
        TABVINT(183) = 3*NUMNOD_L
      ELSE
        TABVINT(183) = 0
      ENDIF
      IF(MULTI_FVM%ARE_ALL_PARTS_151)THEN
        TABVINT(184) = 0
      ELSE
        TABVINT(184) = IEULER*(NUMELS_L*LVEUL+NUMELQ_L*10)
      ENDIF
C 3 tableaux multi mat spmd mono
      TABVINT(185) = SFILL
      TABVINT(186) = SDFILL
      TABVINT(187) = SALPH
      IF (ALE%GRID%NWALE == 2) THEN
        TABVINT(188) = 3*NUMNOD_L
      ELSEIF(ALE%GRID%NWALE == 4) THEN
        TABVINT(188) = 4*NUMNOD_L
      ELSE
        TABVINT(188) = 0
      END IF

      IF(ILAG==1.AND.(IALE+IEULER)/=0)THEN
        TABVINT(189) = 3*NUMNOD_L
        TABVINT(190) = 0
      ELSE
        TABVINT(189) = 0
        TABVINT(190) = 0
      END IF

      IF (ILAG==1.AND.(IALE+IEULER)/=0)THEN
         TABVINT(191) = 3*NUMNOD_L
         TABVINT(192) = 0
         TABVINT(193) = 0
         TABVINT(194) = 0
         TABVINT(195) = 0
      ELSE
         TABVINT(191) = 0
         TABVINT(192) = 0
         TABVINT(193) = 0
         TABVINT(194) = 0
         TABVINT(195) = 0
      END IF

      TABVINT(196) = NUMSPH_L*NSPBUF
      TABVINT(197) = 0
      TABVINT(198) = 0
      TABVINT(199) = 0
C tableaux utilises en mono domaine pour inlet/outlet
      TABVINT(200) = SVSPHIO
c si cas Inl Outl on passe SSPHVELN en tableau local
      IF(NSPHIO>0)THEN
        TABVINT(201) = SSPHVELN_L
      ELSE
        TABVINT(201) = SSPHVELN
      ENDIF
      IF(IALE==1.OR.IEULER==1.OR.IALELAG==1) THEN
         TABVINT(202) = NUMNOD_L
      ELSE
         TABVINT(202) = 0
      ENDIF
      TABVINT(203)  = LFACCLD*NCONLD_L
      TABVINT(204)  = LFXVELR*NFXVEL_L
      TABVINT(205)  = NTHVKI*(NINTER+NRWALL+NRBODY+NSECT+NJOINT+NRBAG+NVOLU+NFXBODY+NINTSUB)

      IF(ISIGI==2.OR.ISIGI==4) THEN
         TABVINT(206)= 3*NUMNOD_L
      ELSE IF (IABS(ISIGI)==5) THEN
         TABVINT(206)= 12*(NUMELC_L+NUMELTG_L)
      ENDIF
      TABVINT(207)  = LENXLAS*ISP0
      TABVINT(208)  = 0
      TABVINT(209)  = NACCELM*LLACCELM
      TABVINT(210)  = 0 ! NSENSOR*NSENSR
      TABVINT(211)  = 3*NIBVEL
      TABVINT(212)  = LFACGRV*NGRAV

      IF(IFRWV>0) THEN
         TABVINT(213) = TABVINT(213)+NUMNOD_L
      ELSE
         TABVINT(213) = 0
      ENDIF
      TABVINT(214)  = NPART
      TABVINT(215)  = 0 !SUSERW_L
      TABVINT(216)  = LBUFEL_L
      TABVINT(217)  = 0 !LBUFIN_L
      TABVINT(218)  = NRWLP*NRWALL
      TABVINT(219)  = LWSAV_L*3
      TABVINT(220)  = 0 !obsolete option removed
      TABVINT(221)  = NRBY*NRBYKIN
      TABVINT(222)  = NRBY*NRBYLAG*ISP0
      TABVINT(223)  = NRIVET*NRIVF
      TABVINT(224)  = LSECBUF_L
      TABVINT(225)  = NRVOLU*NVOLU+LRCBAG+LRBAGJET+LRBAGHOL+LRBAGALE
      TABVINT(226)  = (LAG_NCF+LAG_NCL)*ISP0
      TABVINT(227)  = NCONX*NRCNX*ISP0
      TABVINT(228)  = 2*NFASOLFR_L
      TABVINT(229)  = NL_DDR2R*(NSPMD+1)
      TABVINT(230)  = NSLAW_L+NESLAW_L
      TABVINT(231)  = 0 !obsolete option removed
      TABVINT(232)  = (NMADPRT*ISP0+NMADSH4_L+NMADSH3_L+NMADSOL_L+NMADNOD_L+NUMELC_L+NUMELTG_L+NUMELS_L)*NEXMAD
      TABVINT(233)  = NPROPGI*NUMGEO
      TABVINT(234)  = NPROPMI*NUMMAT
      TABVINT(235)  = SKIPPON_L
      TABVINT(236)  = 2*NSEGQUADFR_L
c      TABVINT(230)  =
C      TABVINT(231)=M03
C      TABVINT(232)=M04
C      TABVINT(233)=M05
C      TABVINT(234)=M06
C      TABVINT(235)=M07
C      TABVINT(236)=M08
C      TABVINT(237)=M09
C
C Taille dernier = taille locale du proc
C
C-----
      TABVINT(238)=NUMMAT
      TABVINT(239)=NUMNOD_L
      TABVINT(240)=NUMSKW
      TABVINT(241)=NUMBCS
      TABVINT(242)=NANALY
      TABVINT(243)=NUMELQ_L
      TABVINT(244)=NUMELS_L
      TABVINT(245)=NUMELC_L
      TABVINT(246)=NUMELT_L
      TABVINT(247)=NUMGEO
      TABVINT(248)=NFUNCT
      TABVINT(249)=NCONLD_L
      TABVINT(250)=NINVEL
      TABVINT(251)=NLASER*ISP0
      TABVINT(252)=NINTER
      TABVINT(253)=NRWALL
      TABVINT(254)=NRBODY
      TABVINT(255)=NODMAS
      TABVINT(256)=NFXVEL_L
      TABVINT(257)=NRIVET
      TABVINT(258)=NUMELR_L
      TABVINT(259)=NUMELP_L
      TABVINT(260)=0 !obsolete option removed
      TABVINT(261)=NSECT
      TABVINT(262)=NRBAG
      TABVINT(263)=NJOINT
      TABVINT(264)=ALE%GRID%NWALE
      TABVINT(265)=NUMELTG_L
      TABVINT(266)=NSLAG
      TABVINT(267)=NFACX
      TABVINT(268)=NUMPOR
      TABVINT(269)=NACCELM
      TABVINT(270)=SENSORS%NSENSOR
      TABVINT(271)=NPRETEN
      TABVINT(272)=NVOLU
      TABVINT(273)=NPART
      TABVINT(274)=NSURF
      TABVINT(275)=NSUBS
      TABVINT(276)=NGRAV
      TABVINT(277)=NRBY2
      TABVINT(278)=NGRNOD
      TABVINT(279)=NGRBRIC
      TABVINT(280)=NGRQUAD
      TABVINT(281)=NGRSHEL
      TABVINT(282)=NGRSH3N
      TABVINT(283)=NGRBEAM
      TABVINT(284)=NGRTRUS
      TABVINT(285)=NGRSPRI
      TABVINT(286)=NLINK
      TABVINT(287)=INVSTR
      TABVINT(288)=NSLIN
      TABVINT(289)=NUMELX_L
      TABVINT(290)=NCONX*ISP0
      TABVINT(291)=ISUMNX_L
      TABVINT(292)=NANIM1D
      TABVINT(293)=NR2RLNK
C-----
      TABVINT(294)=0! no linger used
      TABVINT(295)=IANIM
      TABVINT(296)=IOUTP
      TABVINT(297)=NHIN2
      TABVINT(298)=IDELI7
C-----
      TABVINT(299)=NSNOD
      TABVINT(300)=NSELQ
      TABVINT(301)=NSELS
      TABVINT(302)=NSELC
      TABVINT(303)=NSELT
      TABVINT(304)=NSELP
      TABVINT(305)=NSELR
      TABVINT(306)=NSRBY
      TABVINT(307)=NSMAT
      TABVINT(308)=NSELTG
      TABVINT(309)=NTHGRP
      TABVINT(310)=NTHGRP0
      TABVINT(311)=NSELU
C-----
      TABVINT(312)=NPROPM
      TABVINT(313)=NVSIZ
      TABVINT(314)=NPROPG
      TABVINT(315)=NPARG
      TABVINT(316)=LVEUL
      TABVINT(317)=NIXS
      TABVINT(318)=NIXQ
      TABVINT(319)=NIXC
      TABVINT(320)=NIXT
      TABVINT(321)=NIXP
      TABVINT(322)=NIXR
      TABVINT(323)=NIXTG
      TABVINT(324)=0
      TABVINT(325)=NIXFR1
      TABVINT(326)=NIXFR2
      TABVINT(327)=NPARI
      TABVINT(328)=LWAMP
      TABVINT(329)=LWANMP
      TABVINT(330)=NISX
      TABVINT(331)=LIGRN1
      TABVINT(332)=LISUB1
      TABVINT(333)=NIMV
      TABVINT(334)=NNPBY
      TABVINT(335)=NRBY
      TABVINT(336)=NIFV
      TABVINT(337)=NTHVKI
      TABVINT(338)=NPSAV
      TABVINT(339)=NRCNX
      TABVINT(340)=NR2R
C-----
C TABVINT(341) to TABVINT(378) obsolete DSA
C-----
      TABVINT(379)=NUMFRAM
C-----
      TABVINT(380)=NUMSPH_L
      TABVINT(381)=NSELSP
      TABVINT(382)=NSPCOND
      TABVINT(384)=NSPHSYM
      TABVINT(385)=MAXPJET
      TABVINT(386)=NISP
      TABVINT(387)=KVOISPH
      TABVINT(388)=NSPBUF
      TABVINT(389)=NISPCOND
C-----
C TABVINT(390) to TABVINT(424) obsolete DSA
C-----
      TABVINT(425)=INTBAG_L
      TABVINT(426)=IBAGSURF
      TABVINT(427)=NRVOLU
      TABVINT(428)=NUMELS10_L
      TABVINT(429)=NUMELS20_L
      TABVINT(430)=IDAMPG
      TABVINT(431)=ICLOSE
C
      TABVINT(432)=0  ! NSENSI
      TABVINT(433)=0  ! NSENSR
      TABVINT(434)=NIBVEL
      TABVINT(435)=LWASPH_L
      TABVINT(436)=NUMELS16_L
      TABVINT(437)=NUMELS8_L
      TABVINT(438)=NRIVF
      TABVINT(439)=NXFRAME
      TABVINT(440)=NSPHIO
      TABVINT(441)=NISPHIO
      TABVINT(442)=LAG_NCF
      TABVINT(443)=LAG_NKF
      TABVINT(444)=LAG_NHF
      TABVINT(445)=LAG_NCL
      TABVINT(446)=LAG_NKL
      TABVINT(447)=LAG_NHL
      TABVINT(448)=NBCSLAG
      TABVINT(449)=LACTIV
      TABVINT(450)=NACTIV
      TABVINT(451)=NDAMP
      TABVINT(452)=NICBAG
      TABVINT(453)=NRCBAG
      TABVINT(454)=LICBAG
      TABVINT(455)=LRCBAG
      TABVINT(456)=NIBJET
      TABVINT(457)=NRBJET
      TABVINT(458)=NIBHOL
      TABVINT(459)=NRBHOL
      TABVINT(460)=LIBAGJET
      TABVINT(461)=LRBAGJET
      TABVINT(462)=LIBAGHOL
      TABVINT(463)=LRBAGHOL
      TABVINT(464)=NGJOINT
      TABVINT(465)=NUMMPC
      TABVINT(466)=LVSPHIO
      !TABVINT(467)= SITHGRPA  removed variable
      !TABVINT(468)= SITHGRPB  removed variable
      !TABVINT(469)= SITHGRPC  removed variable
      !TABVINT(470)= SITHGRPD  removed variable
      !TABVINT(471)= SITHGRPE  removed variable
      !TABVINT(472)= SITHGRPF  removed variable
      !TABVINT(473)= SITHGRPG  removed variable
      !TABVINT(474)= SITHGRPH  removed variable
      !TABVINT(475)= SITHGRPI  removed variable
C
      TABVINT(476)=NTHGRP01(1)
      TABVINT(477)=NTHGRP01(2)
      TABVINT(478)=NTHGRP01(3)
      TABVINT(479)=NTHGRP01(4)
      TABVINT(480)=NTHGRP01(5)
      TABVINT(481)=NTHGRP01(6)
      TABVINT(482)=NTHGRP01(7)
      TABVINT(483)=NTHGRP01(8)
      TABVINT(484)=NTHGRP01(9)
C
      TABVINT(485)=NTHGRP1(1)
      TABVINT(486)=NTHGRP1(2)
      TABVINT(487)=NTHGRP1(3)
      TABVINT(488)=NTHGRP1(4)
      TABVINT(489)=NTHGRP1(5)
      TABVINT(490)=NTHGRP1(6)
      TABVINT(491)=NTHGRP1(7)
      TABVINT(492)=NTHGRP1(8)
      TABVINT(493)=NTHGRP1(9)
      LVARINT=493
      
C
C-----  debut chk pt restart
C
      !OUTP_V, ...OUTP_RT,ANIM_V,...,ANIM_FT
      DO I=1,19
        LVARINT=LVARINT+1
        TABVINT(LVARINT)=0
      ENDDO
      !ANIM_M,ANIM_K,...,ANIM_VERS
      DO I=1,8
        LVARINT=LVARINT+1
        TABVINT(LVARINT)=0
      ENDDO
      TABVINT(LVARINT)=40    
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=0 !IZIP        
      
      LVARINT=493+19+8+1      
C
C-----  fin chk pt restart
C
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=NRBYLAG
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=NFVLAG
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=NNPRW
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=NRWLAG
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=NHMAX
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=LAGMOD
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=LAGOPT
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=SEGINDX
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=ALE%GLOBAL%NVCONV
      DO I=1,ALE%GLOBAL%LCONV
        TABVINT(LVARINT+I)=ALE%GLOBAL%CODV(I)
      ENDDO
      LVARINT=LVARINT+ALE%GLOBAL%LCONV
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=NPEBC
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=NEBCS
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=NRBYKIN
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=NBCSKIN
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=NUMELS8A
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=NUMELTG6_L
C espace memoire reserv pour les checks points restarts.
      DO I=1,58                          
        TABVINT(LVARINT+I)=0             
      ENDDO                              
      LVARINT=LVARINT + 58               
      LVARINT=LVARINT+1                  
      TABVINT(LVARINT)=0 !SIZE OF ANIM_N  
c                                        
      LVARINT=LVARINT+1                  
      TABVINT(LVARINT)=IOUTP_FMT         
                                         
      LVARINT=LVARINT+1                  
      TABVINT(LVARINT)=NPROPGI           
      LVARINT=LVARINT+1                  
      TABVINT(LVARINT)=NPROPMI           
      LVARINT=LVARINT+1                  
      TABVINT(LVARINT)=NEXMAD            
      LVARINT=LVARINT+1                  
      TABVINT(LVARINT)=NMADPRT*ISP0      
      LVARINT=LVARINT+1                  
      TABVINT(LVARINT)=NMADSH4_L         
      LVARINT=LVARINT+1                  
      TABVINT(LVARINT)=NMADSH3_L         
      LVARINT=LVARINT+1                  
      TABVINT(LVARINT)=NMADSOL_L         
      LVARINT=LVARINT+1                  
      TABVINT(LVARINT)=NMADNOD_L         
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=ISHFRAM
      LVARINT=LVARINT+1
      TABVINT(LVARINT)= NSKYRW_L
      LVARINT=LVARINT+1
      TABVINT(LVARINT)= NSKYRBK_L
      LVARINT=LVARINT+1
      TABVINT(LVARINT)= NBDDNOD_L
      LVARINT=LVARINT+1
      TABVINT(LVARINT)= NBDDNRB_L
      LVARINT=LVARINT+1
      TABVINT(LVARINT)= MULTIMAX
      LVARINT=LVARINT+1
      TABVINT(LVARINT)= NBDDI2M_L
      LVARINT=LVARINT+1
      TABVINT(LVARINT)= NISKYI2_L
      LVARINT=LVARINT+1
      TABVINT(LVARINT)= LCNI2_L
      LVARINT=LVARINT+1
      TABVINT(LVARINT)= I2NSNT_L
      LVARINT=LVARINT+1
      TABVINT(LVARINT)= NNMV_L
      LVARINT=LVARINT+1
      TABVINT(LVARINT)= NNMVC_L
      LVARINT=LVARINT+1
      TABVINT(LVARINT)= NSKYLL_L
      LVARINT=LVARINT+1
      TABVINT(LVARINT)= NBDDNCJ_L
      LVARINT=LVARINT+1
      TABVINT(LVARINT)= NBDDNRBM_L
      LVARINT=LVARINT+1
      TABVINT(LVARINT)= NSKYRBM_L
      LVARINT=LVARINT+1
      TABVINT(LVARINT)= NNODT_L
      LVARINT=LVARINT+1
      TABVINT(LVARINT)= NNODL_L
      LVARINT=LVARINT+1
      TABVINT(LVARINT)= NBDDNRBE3_L
      LVARINT=LVARINT+1
      TABVINT(LVARINT)= NSKYRBE3_L
      LVARINT=LVARINT+1
      TABVINT(LVARINT)= NPARIR
      LVARINT=LVARINT+1              
      TABVINT(LVARINT)= NUMNODG      
      LVARINT=LVARINT+1              
      TABVINT(LVARINT)= NUMNODM      
      LVARINT=LVARINT+1              
      TABVINT(LVARINT)= NUMELQG      
      LVARINT=LVARINT+1              
      TABVINT(LVARINT)= NUMELCG      
      LVARINT=LVARINT+1              
      TABVINT(LVARINT)= NUMELTGG     
      LVARINT=LVARINT+1              
      TABVINT(LVARINT)= 0            
      LVARINT=LVARINT+1              
      TABVINT(LVARINT)= NUMELSG      
      LVARINT=LVARINT+1              
      TABVINT(LVARINT)= NUMELPG      
      LVARINT=LVARINT+1              
      TABVINT(LVARINT)= NUMELRG      
      LVARINT=LVARINT+1              
      TABVINT(LVARINT)= NUMELTRG     
      LVARINT=LVARINT+1              
      TABVINT(LVARINT)= NB1DG        
      LVARINT=LVARINT+1              
      TABVINT(LVARINT)= NSKEWAG      
      LVARINT=LVARINT+1              
      TABVINT(LVARINT)= SECTIOM      
      LVARINT=LVARINT+1              
      TABVINT(LVARINT)= NUMELS16G    
      LVARINT=LVARINT+1              
      TABVINT(LVARINT)= NUM16SHIFT_L 
      LVARINT=LVARINT+1              
      TABVINT(LVARINT)= OUTYY_FMT    
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=NFXBODY
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=LENNOD_L
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=LENMOD_L
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=LENGLM_L
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=LENCP_L
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=LENLM_L
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=LENFLS_L
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=LENDLS_L
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=LENVAR
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=LENRPM
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=LENMCD_L
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=LENELM_L
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=LENSIG_L
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=LENGRVI_L
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=LENGRVR_L
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=NBIPM
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=NSFXBY
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=NEIG
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=NEIPM
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=NERPM
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=LEIBUF_L
      LVARINT=LVARINT+1
      TABVINT(LVARINT)= NINTSUB
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=IROOTYY
C
C-----  debut chk pt restart
C
      LVARINT=LVARINT+1
      TABVINT(LVARINT)= 0
      LVARINT=LVARINT+1
      TABVINT(LVARINT)= 0
      LVARINT=LVARINT+1
      TABVINT(LVARINT)= 0
      LVARINT=LVARINT+1
      TABVINT(LVARINT)= 0
      LVARINT=LVARINT+1
      TABVINT(LVARINT)= 0
      LVARINT=LVARINT+1
      TABVINT(LVARINT)= 0
C
C-----  fin chk pt restart
C
      LVARINT=LVARINT+1
      TABVINT(LVARINT)= TRIMAT
      LVARINT=LVARINT+1
      TABVINT(LVARINT)= SPHSHIFT_L
      LVARINT=LVARINT+1
      TABVINT(LVARINT)= NUMSPHG
      LVARINT=LVARINT+1
      TABVINT(LVARINT)= NUMELXG
      LVARINT=LVARINT+1
      TABVINT(LVARINT)= NITHGR
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=NPEBCR
      LVARINT=LVARINT+1
      TABVINT(LVARINT)= NBI18_L
      LVARINT=LVARINT+1
      TABVINT(LVARINT)= NSKYI18_L
C partie commun spmd cfd
      LVARINT=LVARINT+1
      TABVINT(LVARINT)= NSVOIS_L
      LVARINT=LVARINT+1
      TABVINT(LVARINT)= NQVOIS_L
      LVARINT=LVARINT+1
      TABVINT(LVARINT) = NTGVOIS_L
      LVARINT = LVARINT + 1
      TABVINT(LVARINT)= NRCVVOIS_L
      LVARINT=LVARINT+1
      TABVINT(LVARINT)= NSNDVOIS_L
      LVARINT=LVARINT+1
      TABVINT(LVARINT)= NERVOIS_L
      LVARINT=LVARINT+1
      TABVINT(LVARINT)= NESVOIS_L
      LVARINT=LVARINT+1
      TABVINT(LVARINT)= ILAW11_L
      LVARINT=LVARINT+1
      TABVINT(LVARINT)= NSEGFL_L
      LVARINT=LVARINT+1
      TABVINT(LVARINT)= NUMPOR_L
      LVARINT=LVARINT+1
      TABVINT(LVARINT)= ALE%GLOBAL%ICAA
      LVARINT=LVARINT+1
      TABVINT(LVARINT)= ISPHBUC
      LVARINT=LVARINT+1
      TABVINT(LVARINT)= NRDAMP
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=NSPROC
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=NDSOLV
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=NSBMAX
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=NSVMAXT
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=NSMOD
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=NFLOW
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=LIFLOW
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=LRFLOW
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=NIFLOW
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=NIIOFLOW
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=NRFLOW
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=NRIOFLOW
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=ICONDP
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=IMPL_S0
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=NFASOLFR_L
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=NSEGQUADFR_L
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=3*(NSPMD+1)          !  DD_LAGF
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=NLAGF_L              !  LAGF_L
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=NVENTTOT
C
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=NUMELC0
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=NUMELTG0
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=NUMNOD0
C
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=NADMESH
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=LEVELMAX
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=IADMRULE
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=KSH4TREE
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=KSH3TREE
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=KPADMESH
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=KCONTACT
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=KIPADMESH
      LVARINT=LVARINT+1
      IF(KCONTACT==0)THEN
        TABVINT(LVARINT)=0
      ELSE
        TABVINT(LVARINT)=NUMNOD_L
      END IF
      LVARINT=LVARINT+1
      IF(NADMESH==0)THEN
        TABVINT(LVARINT)=0
      ELSE
        TABVINT(LVARINT)=NUMNOD_L
      END IF
      IF(NUMSKW>0)THEN
        LVARINT=LVARINT+1
        TABVINT(LVARINT)=NUMSKW+1           !  ISKWP
        LVARINT=LVARINT+1
        TABVINT(LVARINT)=NSPMD              !  NSKWP
      ELSE
        LVARINT=LVARINT+1
        TABVINT(LVARINT)=0
        LVARINT=LVARINT+1
        TABVINT(LVARINT)=0
      END IF
      IF(SENSORS%NSENSOR>0)THEN
        LVARINT=LVARINT+1
        TABVINT(LVARINT)=SENSORS%NSENSOR*2   !  ISENSP
        LVARINT=LVARINT+1
        TABVINT(LVARINT)=NSPMD              !  NSENSP
      ELSE
        LVARINT=LVARINT+1
        TABVINT(LVARINT)=0
        LVARINT=LVARINT+1
        TABVINT(LVARINT)=0
      END IF
      IF(NACCELM>0)THEN
        LVARINT=LVARINT+1
        TABVINT(LVARINT)=NACCELM            !  IACCP
        LVARINT=LVARINT+1
        TABVINT(LVARINT)=NSPMD              !  NACCP
      ELSE
        LVARINT=LVARINT+1
        TABVINT(LVARINT)=0
        LVARINT=LVARINT+1
        TABVINT(LVARINT)=0
      END IF
        LVARINT=LVARINT+1
        TABVINT(LVARINT)=IISROT
C .sta files
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=MX_STAT
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=ISTATF
      DO I=1, MX_STAT
       LVARINT=LVARINT+1
       TABVINT(LVARINT)=STAT_C(I)
      ENDDO
C .dynain files
      LVARINT=LVARINT+1
      DYNAIN_DATA%IDYNAINF = 0
      TABVINT(LVARINT)=DYNAIN_DATA%IDYNAINF
      DO I=1, DYNAIN_DATA%MX_DYNAIN
       LVARINT=LVARINT+1
       DYNAIN_DATA%DYNAIN_C(I) = 0
       TABVINT(LVARINT)=DYNAIN_DATA%DYNAIN_C(I)
      ENDDO
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=DYNAIN_DATA%DYNAIN_CHECK
C  heat transfer + int7
      LVARINT=LVARINT+1
      TABVINT(LVARINT) = INTHEAT
C xfem
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=NUMELCRK
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=NINICRACK
C heat trasfert
       LVARINT=LVARINT+1
       TABVINT(LVARINT) = ITHERM_FE
C     Static condensation
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=ISTATCND
C Defense Lic Flag
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=LIDFS
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=LIRNUR
C     Unit info
      LVARINT=LVARINT+1
      TABVINT(LVARINT)= 4 ! old LUNIT, deprecated 
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=UNITAB%NUNIT0
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=UNITAB%NUNITS
C
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=LSH4TRIM
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=LSH3TRIM
C
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=IADMERRT
C
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=IMPOSE_DR
C
      LVARINT=LVARINT+1
      TABVINT(LVARINT) = NINTSTAMP
C
      LVARINT=LVARINT+1
      TABVINT(LVARINT) = INTER_ITHKNOD !defined in interface module (common_source directory)

C  rigid material
      LVARINT=LVARINT+1
      TABVINT(LVARINT)= IRIGID_MAT
C
      LVARINT=LVARINT+1
      TABVINT(LVARINT)= NRBYM
C
      LVARINT=LVARINT+1
      TABVINT(LVARINT)= NSLARBM_L
C
      LVARINT=LVARINT+1
      TABVINT(LVARINT)= NFRBYM
C
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=  NIRBYM
C p on rigid material
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=  NSKYRBMK_L
C thermal bc
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=  NIFT
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=  NICONV
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=  LFACTHER
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=  NCONV_L
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=  NFXTEMP_L
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=  ISTAMPING
C
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=NRBE3_L
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=NRBE3_L*NRBE3L
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=2*LLRBE3_L
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=8*LLRBE3_L
C   ----for spmd
      LVARINT=LVARINT+1
      TABVINT(LVARINT)= NSPMD+1
      LVARINT=LVARINT+1
      TABVINT(LVARINT)= NBDDNRBE3_L
C    spmd rigid material
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=  NBDDNRBYM_L
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=  3*NRBYM
C
      LVARINT=LVARINT+1
      TABVINT(LVARINT) = SINOISE
      LVARINT=LVARINT+1
      TABVINT(LVARINT) = SFNOISE
      LVARINT=LVARINT+1
      TABVINT(LVARINT) = NNOISE_SAV
C  shell xfem
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=IPLYXFEM
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=NPLYMAX
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=IPLYBCS
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=NUMNODPXFE_L
      LVARINT=LVARINT+1
      TABVINT(LVARINT)= NUMELCPXFE_L
C
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=NGRPART
C Madymo array
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=(2*NMADNOD+NMADSH4+NMADSH3+NMADSOL)*ISP0
C New Madymo coupling
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=MADCL_NMADNOD_L
C
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=IDTMINS
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=IDTGRS
C Madymo Restart Array is missing
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=IREAC
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=SNOM_SECT
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=IGRELEM
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=NTHPART
C
C ecriture sur restart de tableaux de masse elementaires
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=IREST_MSELT
C ecriture sur restart nthread
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=NTHREAD
C   ----for output of rotational dof -----
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=IDROT
C
C radiative flux
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=  NIRADIA
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=  NRADIA_L
C imposed heat flux
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=  NITFLUX
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=  NFXFLUX_L
C
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=  NSMSPCG
C
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=  NTABLE
C  RBE2
      LVARINT=LVARINT+1
      TABVINT(LVARINT)= NBDDNRBE2_L
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=NRBE2_L
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=NRBE2_L*NRBE2L
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=LLRBE2_L
C   ----for spmd
      LVARINT=LVARINT+1
      TABVINT(LVARINT)= NSPMD+1
      LVARINT=LVARINT+1
      TABVINT(LVARINT)= NBDDNRBE2_L
C   ----for hierarchy both smp & spmd
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=NHRBE2
C
C --- simplified ale option + lagrange
      LVARINT=LVARINT+1
      TABVINT(LVARINT)  = IALELAG
C
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=NRBE2G
C
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=NRBE3G
C----------------------------------
C ... shell 4-N + shell 3-N (X-FEM)
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=ICRACK3D
C  shell xfem + spmd
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=LCNEPXFEM_L
      LVARINT=LVARINT+1
      TABVINT(LVARINT)  = SITHVAR
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=NPLYNODG
C --- Need NXREF Option for Modif files / SPMD
      LVARINT=LVARINT+1
      TABVINT(LVARINT)  = NXREF
C
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=IDTMINS_INT
C
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=LLCFIELD_L
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=NLOAD
C
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=IDAMP_RDOF
C
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=LSKEW
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=LISKN
C
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=LFXVELR
C
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=NLOADC
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=LLLOADP_L
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=NLOADP
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=NLOADP_HYD
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=NINTLOADP
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=NINTLOADP21
C xfem for layered shell (cracks)
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=LCNECRKXFEM_L
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=NUMNODCRKXFE_L
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=NUMELCRKXFE_L
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=NLEVMAX
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=NCRKNODG
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=IENRNOD
c new tab specific inl outl ibufssg_io
      LVARINT=LVARINT+1
      TABVINT(LVARINT)= SIBUFSSG_IO 
      LVARINT=LVARINT+1
      TABVINT(LVARINT)= NIBSPH
      LVARINT=LVARINT+1
      TABVINT(LVARINT)= SLINALE      
      LVARINT=LVARINT+1
      TABVINT(LVARINT)= NSUBMOD
      LVARINT=LVARINT+1
      TABVINT(LVARINT)= ALE%GLOBAL%NALENOVS
C
      LVARINT=LVARINT+1
      TABVINT(LVARINT)= LNOPT1
      LVARINT=LVARINT+1
      TABVINT(LVARINT)= LILSET1
      LVARINT=LVARINT+1
      TABVINT(LVARINT)= LISLIN1
      LVARINT=LVARINT+1
      TABVINT(LVARINT)= LTITR
      LVARINT=LVARINT+1
      TABVINT(LVARINT)= LISURF1
      LVARINT=LVARINT+1
      TABVINT(LVARINT)= LIPART1
      LVARINT=LVARINT+1
      TABVINT(LVARINT)= SIZFIELD
      LVARINT=LVARINT+1
      TABVINT(LVARINT)= SIZLOADP
      LVARINT=LVARINT+1
      TABVINT(LVARINT)= I2NSN25_L
      LVARINT=LVARINT+1
      TABVINT(LVARINT)= LVOISPH
      LVARINT=LVARINT+1
      TABVINT(LVARINT)= 0
      LVARINT=LVARINT+1
      TABVINT(LVARINT)= NUMNOD_L
      LVARINT=LVARINT+1
      TABVINT(LVARINT)= 4*NUMELCCRKXFE_L+3*NUMELTGCRKXFE_L
C multilayer xfem shell
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=NUMELCCRKXFE_L
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=NUMELTGCRKXFE_L
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=NUMEDGES_L
C inter22
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=INT22
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=I22_ALEUL
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=NSUB22
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=IOUTP22  
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=I22LAW37
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=I22LAW51                
c
      LVARINT=LVARINT+1
      TABVINT(LVARINT)= ICRASH
c
      LVARINT=LVARINT+1
      TABVINT(LVARINT) = NSPMD+1
      LVARINT=LVARINT+1
      TABVINT(LVARINT) = NBDDEDGE_L
      LVARINT=LVARINT+1
      TABVINT(LVARINT) = NSPMD+1
c
      LVARINT=LVARINT+1
      TABVINT(LVARINT) = NBGAUGE
      LVARINT=LVARINT+1
      TABVINT(LVARINT)= LLACCELM
      LVARINT=LVARINT+1
      TABVINT(LVARINT)= LLGAUGE
c
      IF(NBGAUGE>0)THEN
        LVARINT=LVARINT+1
        TABVINT(LVARINT)=NBGAUGE            !  IGAUP
        LVARINT=LVARINT+1
        TABVINT(LVARINT)=NSPMD              !  NGAUP
      ELSE
        LVARINT=LVARINT+1
        TABVINT(LVARINT)=0
        LVARINT=LVARINT+1
        TABVINT(LVARINT)=0
      END IF
C
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=SDD_R2R_ELEM
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=R2R_SIU  
C heat trasfert for interface Type21 : main temperature is variable
      LVARINT=LVARINT+1
      TABVINT(LVARINT) = FTEMPVAR21
C
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=NUMNODXFE_L
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=NUMNODXFE_L
c
      LVARINT=LVARINT+1
      TABVINT(LVARINT) = NSPHSOL_L
      LVARINT=LVARINT+1
      TABVINT(LVARINT)= FIRST_SPHSOL_L
C
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=IDDOM_L
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=NUMMAT0
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=NUMGEO0                  
      LVARINT=LVARINT+1
      TABVINT(LVARINT) = INTPLYXFEM
      LVARINT=LVARINT+1
      TABVINT(LVARINT) = I22LEN_L
c
      LVARINT=LVARINT+1
      TABVINT(LVARINT) = NCLUSTER_L
C
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=NXLAYMAX
C
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=LENTHBUFR

      LVARINT=LVARINT+1
      TABVINT(LVARINT)= NUMELIG3D   
      LVARINT=LVARINT+1
      TABVINT(LVARINT)= SKXIG3D   
      LVARINT=LVARINT+1
      TABVINT(LVARINT)= SIXIG3D    
      LVARINT=LVARINT+1
      TABVINT(LVARINT)= SKNOT    
      LVARINT=LVARINT+1
      TABVINT(LVARINT)= SKNOTLOCPC
      LVARINT=LVARINT+1
      TABVINT(LVARINT)= SKNOTLOCEL
      LVARINT=LVARINT+1
      TABVINT(LVARINT)= NUMFAKENODIGEO
      LVARINT=LVARINT+1
      TABVINT(LVARINT)= DEG_MAX    
C
      LVARINT=LVARINT+1
      TABVINT(LVARINT) = NXEL
C
      LVARINT=LVARINT+1
      TABVINT(LVARINT) = NFILSOL
C
      LVARINT=LVARINT+1
      TABVINT(LVARINT) = SENSORS%SFSAV
C
      LVARINT=LVARINT+1
      TABVINT(LVARINT) = SENSORS%STABSEN
C Stack info
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=IPART_STACK 
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=NPT_STACK      
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=NS_STACK  
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=ALEFVM_Param%IEnabled
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=ALEFVM_Param%ISOLVER
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=ALEMUSCL_Param%IALEMUSCL
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=ALEMUSCL_Param%BETA
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=ALEMUSCL_Param%I_LAW
C
C ITETRA=3
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=ISFEM  
C /LOAD/PBLAST
      LVARINT=LVARINT+1
      TABVINT(LVARINT) = NLOADP_F
      LVARINT=LVARINT+1
      TABVINT(LVARINT) = NLOADP_B           
C /LOAD/PCYL
      LVARINT=LVARINT+1
      TABVINT(LVARINT) = NLOAD_CYL           
C espace memoire reserv pour les checks points restarts.
C     IDTMIN(51)
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=0
C     IDTMIN(52)
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=0
C      
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=NBR_GPMP
C      
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=TAILLE  
C      
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=NINTER25
C      
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=NUMNOR_L
C      
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=NBDDNORT_L
C      
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=NBDDNOR_MAX_L
C      
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=NBCCFR25_L
C      
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=NBCCNOR_L
C      
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=NBDDEDGT_L
C      
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=NBDDEDG_MAX_L
C      
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=NSNT25
C      
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=NRTMX25_L
C
C drape option
      LVARINT=LVARINT+1
      TABVINT(LVARINT) = NDRAPE
C Element activation
      LVARINT=LVARINT+1
      TABVINT(LVARINT) = LRACTIV
C PLY_INFO -> animation file
      LVARINT=LVARINT+1
      TABVINT(LVARINT) = NUMPLY
C PLY_INFO -> animation file
      LVARINT=LVARINT+1
      TABVINT(LVARINT) = NUMSTACK
C tab_mat_prop size 
      LVARINT=LVARINT+1
      TABVINT(LVARINT) = TABMP_L
C SOL2SPH flag
      LVARINT=LVARINT+1
      TABVINT(LVARINT) = SOL2SPH_FLAG
      LVARINT=LVARINT+1
      TABVINT(LVARINT) = ITSOL2SPH
C ISFINT (ALESOLVER) with caa method                                                   
      LVARINT=LVARINT+1
      TABVINT(LVARINT) = ALE%GLOBAL%ISFINT      
C ICNDS10 dyna condensation for S10                                                
      LVARINT=LVARINT+1
      TABVINT(LVARINT) = NS10E_L      
      LVARINT=LVARINT+1
      TABVINT(LVARINT) = LCNCND_L     
C--- SIAD_CNDM, SFR_CNDM      
      LVARINT=LVARINT+1
      TABVINT(LVARINT) = NSPMD + 1
      LVARINT=LVARINT+1
      TABVINT(LVARINT) = NBDDCNDM_L
C---- old local sys of shell3n      
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=ISH3NFRAM
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=NGROUP_L
C SMS auto switch
      LVARINT=LVARINT+1
      TABVINT(LVARINT) = ISMS_SELEC
C     MULTI fluid law
      LVARINT=LVARINT+1
      TABVINT(LVARINT) = 0
      IF (MULTI_FVM%IS_USED) TABVINT(LVARINT) = 1
      LVARINT=LVARINT+1
      TABVINT(LVARINT) = 0
      IF (MULTI_FVM%IS_USED) TABVINT(LVARINT) = MULTI_FVM%NBMAT
C---- old Isolid=17     
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=IS17OLD     
C IH3D -> H3D count
      LVARINT=LVARINT+1
      TABVINT(LVARINT) = IH3D 
C
      LVARINT=LVARINT+1
      TABVINT(LVARINT) = NUMELS10G  
C 
      LVARINT=LVARINT+1
      TABVINT(LVARINT) = NUMELS20G   
!
      LVARINT=LVARINT+1
      TABVINT(LVARINT) = ALE%GLOBAL%I_DT_NODA_ALE_ON
C Interface Adhesion
      LVARINT=LVARINT+1
      TABVINT(LVARINT) = INTERADHESION               
!
C Friction interface  
      LVARINT=LVARINT+1
      TABVINT(LVARINT) = NINTERFRIC
!
      LVARINT=LVARINT+1
      TABVINT(LVARINT) = LENSUBS
!
      LVARINT=LVARINT+1
      TABVINT(LVARINT) = LENIGRNOD_L
!
      LVARINT=LVARINT+1
      TABVINT(LVARINT) = LENIGRBRIC_L
!
      LVARINT=LVARINT+1
      TABVINT(LVARINT) = LENIGRQUAD_L
!
      LVARINT=LVARINT+1
      TABVINT(LVARINT) = LENIGRSH4N_L
!
      LVARINT=LVARINT+1
      TABVINT(LVARINT) = LENIGRSH3N_L
!
      LVARINT=LVARINT+1
      TABVINT(LVARINT) = LENIGRTRUS_L
!
      LVARINT=LVARINT+1
      TABVINT(LVARINT) = LENIGRBEAM_L
!
      LVARINT=LVARINT+1
      TABVINT(LVARINT) = LENIGRSPRI_L
!
      LVARINT=LVARINT+1
      TABVINT(LVARINT) = LENIGRPART
!
      LVARINT=LVARINT+1
      TABVINT(LVARINT) = LENISURF_L
!
      LVARINT=LVARINT+1
      TABVINT(LVARINT) = LENISLIN_L
C
C-----  debut chk pt restart
C
!     IDTS6, IDT1SOL, IDT1TET10, IDT1SH <=> CHKPT
      LVARINT=LVARINT+1
      TABVINT(LVARINT) = 0
      LVARINT=LVARINT+1
      TABVINT(LVARINT) = 0
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=0  
      LVARINT=LVARINT+1
      TABVINT(LVARINT) = 0
C
C-----  fin chk pt restart
C
!     H3D -> number of skid lines    
      LVARINT=LVARINT+1
      TABVINT(LVARINT) = 0
!     H3D ANIM -> FCONT_MAX computing IFCONTMAX/IFCONTPMAX/IFCONT2MAX/IFCONTP2MAX
      LVARINT=LVARINT+1
      TABVINT(LVARINT) = 0
      LVARINT=LVARINT+1
      TABVINT(LVARINT) = 0
      LVARINT=LVARINT+1
      TABVINT(LVARINT) = 0
      LVARINT=LVARINT+1
      TABVINT(LVARINT) = 0
      LVARINT=LVARINT+1
      TABVINT(LVARINT) = 0
      LVARINT=LVARINT+1
      TABVINT(LVARINT) = 0
!     H3D output for frictional energy
      LVARINT=LVARINT+1
      TABVINT(LVARINT) = 0
      LVARINT=LVARINT+1
      TABVINT(LVARINT) = 0
      LVARINT=LVARINT+1
      TABVINT(LVARINT) = 0
      LVARINT=LVARINT+1
      TABVINT(LVARINT) = 0
      LVARINT=LVARINT+1
      TABVINT(LVARINT) = 0
      LVARINT=LVARINT+1
      TABVINT(LVARINT) = 0
C Nitsche Method  
      LVARINT=LVARINT+1
      TABVINT(LVARINT) = NITSCHE
C CBA Pinching
      LVARINT=LVARINT+1
      TABVINT(LVARINT) = NPINCH
      LVARINT=LVARINT+1
      TABVINT(LVARINT) = NPLOADPINCH
C I_SUPG_ON_OFF 
      LVARINT=LVARINT+1
      TABVINT(LVARINT) = 0      
!
      LVARINT=LVARINT+1
      TABVINT(LVARINT) = NLEDGE
!
      LVARINT=LVARINT+1
      TABVINT(LVARINT) = INISPRI
!
      LVARINT=LVARINT+1
      TABVINT(LVARINT) = SENSORS%NSTOP
      LVARINT=LVARINT+1
      TABVINT(LVARINT) = SENSORS%NSTAT
      LVARINT=LVARINT+1
      TABVINT(LVARINT) = SENSORS%NOUTP
      LVARINT=LVARINT+1
      TABVINT(LVARINT) = SENSORS%NANIM
!
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=NIBCLD
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=LFACCLD
!
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=NIGRV
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=LFACGRV
C  BCS/CYCLIC
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=NBCSCYC_L
      LVARINT=LVARINT+1
C-----SIBCSCYC      
      TABVINT(LVARINT)=NBCSCYC_L*4
      LVARINT=LVARINT+1
C-----SLBCSCYC      
      TABVINT(LVARINT)=LLBCSCYC_L*2

      LVARINT=LVARINT+1
      TABVINT(LVARINT) = INTER18_AUTOPARAM
      LVARINT=LVARINT+1
      TABViNT(LVARINT)=0
      IF(INTER18_IS_VARIABLE_GAP_DEFINED)TABVINT(LVARINT) = 1
      
      IF (ALE_CONNECTIVITY%has_ne_connect) THEN
        LVARINT=LVARINT+1
        TABVINT(LVARINT) = NE_NERVOIS_L
        LVARINT=LVARINT+1
        TABVINT(LVARINT) = NE_NESVOIS_L
        LVARINT=LVARINT+1
        TABVINT(LVARINT) = NE_NSVOIS_L
        LVARINT=LVARINT+1
        TABVINT(LVARINT) = NE_NQVOIS_L
        LVARINT=LVARINT+1
        TABVINT(LVARINT) = NE_NTGVOIS_L
      ENDIF
C
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=PDEL
C-----Seatbelts - slipring / retractors
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=N_SLIPRING_L
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=N_RETRACTOR_L
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=NSLIPRING
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=NRETRACTOR
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=N_ANCHOR_REMOTE_L
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=N_ANCHOR_REMOTE_SEND_L
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=N_SEATBELT_L
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=N_SEATBELT_2D_L

! Need to write output variables LASTANIMCYCLE,LASTH3DCYCLE,LASTDYNCYCLE,LASTSTATCYCLE

      LVARINT=LVARINT+1
      TABVINT(LVARINT)=0

      LVARINT=LVARINT+1
      TABVINT(LVARINT)=0

      LVARINT=LVARINT+1
      TABVINT(LVARINT)=0

      LVARINT=LVARINT+1
      TABVINT(LVARINT)=0
C
C---- Starter input version
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=INVERS
C
C---- Number of RBODY before merge
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=NRBODY0
C---- MAX (/H3D) 
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=LMAX_DIS
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=LMAX_VEL
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=LMAX_NSIG
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=LMAX_NSTRA
C---- Time history strain flag
      LVARINT=LVARINT+1
      TABVINT(LVARINT)=TH_STRAIN      
C  draped shell element
      LVARINT       = LVARINT + 1
      TABVINT(LVARINT) = NUMSH4N_L
      LVARINT       = LVARINT + 1
      TABVINT(LVARINT) = NUMSH3N_L
C  
      LVARINT       = LVARINT + 1
      TABVINT(LVARINT) = INTER_PARAMETERS%ISTIF_DT
C  
      LVARINT       = LVARINT + 1
      TABVINT(LVARINT) = INTER_PARAMETERS%INTCAREA
C
C /LOAD/CLOAD
      LVARINT=LVARINT+1
      TABVINT(LVARINT) = NCLOAD_L
C /LOAD/PLOAD
      LVARINT=LVARINT+1
      TABVINT(LVARINT) = NPLOAD_L
C
C-----/DAMP/VREL
      LVARINT=LVARINT+1
      TABVINT(LVARINT) = NDAMP_VREL_L        
C----------------------------------------------------------------
C    warning to radioss developers : Check LVARINT < LMXVINT
C----------------------------------------------------------------
      IF(LVARINT>LMXVINT)STOP 123
C-----------
      RETURN
      END
